home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / xlib.zip / XRES.INT < prev    next >
Text File  |  1992-09-06  |  2KB  |  32 lines
  1. (*****************************************************************************)
  2. (*                                                                           *)
  3. (*        filename        : XRES.PAS                                         *)
  4. (*        author          : Stefan Boether / Compuserve Id : 100023,275      *)
  5. (*                                                 FidoNet :  2:242/200      *)
  6. (*                                                 FidoNet :  2:243/91       *)
  7. (*                                  Internet: 100023.275@CompuServe.COM      *)
  8. (*                                        Maus-Net: Stefan Böther @ HRO      *)
  9. (*        system          : TURBO 6.01 / TPW 1.5 / DOS 3.3 / WIN 3.1         *)
  10. (*        changes         :                                                  *)
  11. (*        when    what                                                who    *)
  12. (*---------------------------------------------------------------------------*)
  13. (*       18.8.92  Remove extenstion constants and use EXT-unit        Stefc  *)
  14. (*       06.9.92  Ude the XFILE unit instead of FILETOOL              Stefc  *)
  15. (*****************************************************************************)
  16. (*  Description :  Opens a Resource-File for the Application                 *)
  17. (*****************************************************************************)
  18. {$D-,L+,O+}
  19. UNIT XRes;
  20.  
  21. INTERFACE
  22.  
  23. USES  (* Y:TVISION\ *)    Objects,    (* Stnd. objects for use          *)
  24.  
  25.       (* R:OBJ\ *)        XStream,    (* Stream objects                 *)
  26.                           XFile,      (* File objects                   *)
  27.  
  28.       (* R:TPU2\ *)       Ext;        (* constants for extenstions      *)
  29.  
  30. VAR   ResFile : TResourceFile;       (* All the resources for a program *)
  31.  
  32.